# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2020/10/19 0019


dd <- data.frame(x=c(1,2),y=c(3,4))
row.names(dd) <- c("a1","a2")
library(pheatmap)
pheatmap(dd,display_numbers = TRUE)

